home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2006 September / SAN CD 9-2006 CD-ROM 16.iso / pc / Software / Network Telescope Control / NTC-Setup.Exe / Source / ntc_server_button.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2006-03-24  |  1.7 KB  |  88 lines
  1. unit ntc_server_button;
  2. {
  3.     Copyright (C) 2004 - 2006 Andrew Sprott
  4.  
  5.     http://astronomy.crysania.co.uk
  6.     astro@trefach.co.uk
  7.  
  8.     This program is free software; you can redistribute it and/or
  9.     modify it under the terms of the GNU General Public License
  10.     as published by the Free Software Foundation; either version 2
  11.     of the License, or (at your option) any later version.
  12.  
  13.     This program is distributed in the hope that it will be useful,
  14.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16.     GNU General Public License for more details.
  17.  
  18.     You should have received a copy of the GNU General Public License
  19.     along with this program; if not, write to the Free Software
  20.     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  21. }
  22.  
  23. interface
  24.  
  25. uses
  26.     SysUtils,
  27.     controls,
  28.     buttons,
  29.     classes;
  30.  
  31. const
  32.     s_no_object=0;
  33.     s_info=1;
  34.     s_comms=2;
  35.     s_focus=3;
  36.     s_about=4;
  37.     s_config=5;
  38.     s_object=6;
  39.     s_search=7;
  40.     s_control=8;
  41.     s_network=9;
  42.     s_tracking=10;
  43.     s_observer=11;
  44.     s_sun=12;
  45.     s_moon=13;
  46.     s_planets=14;
  47.     s_catalogs=15;
  48.  
  49. type
  50.     scope_button_type=integer;
  51.  
  52.     tscope_button=class(tbitbtn)
  53.  
  54.         constructor create(
  55.             aowner:tcomponent); override;
  56.  
  57.     private
  58.         { private declarations }
  59.     public
  60.         { Public declarations }
  61.         control_type:scope_button_type;
  62.         button_hidden,
  63.         button_stuck:boolean;
  64.     end;
  65.  
  66. var
  67.     current_button:tscope_button;
  68.  
  69. implementation
  70.  
  71. uses
  72.     ntc_server_form;
  73.  
  74.     { -------------
  75.         form handling
  76.         ------------- }
  77.  
  78. constructor tscope_button.create(
  79.     aowner:tcomponent);
  80. begin
  81.     inherited create(aowner);
  82.     control_type:=s_no_object;
  83.     button_hidden:=true;
  84.     button_stuck:=false;
  85. end;
  86.  
  87. end.
  88.